home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_12933_WordCount < prev    next >
Text File  |  1994-09-21  |  358b  |  15 lines
  1. lall
  2. push cd
  3. put 0 into wc
  4. get the number of cds
  5. show window "gauge"
  6. repeat with a = 1 to it
  7. go cd a
  8. if there is a fld "styled" then add number of words in fld "styled" to wc
  9. set scroll of window "gauge" to 340-round((a/it)*340)&",0"
  10. end repeat
  11. vis "window gauge",checked(tStr("LibMsg",43))
  12. pop cd
  13. opencard
  14. answer tStr("LibMsg",15)&&wc&&tStr("LibMsg",16)
  15. us